800
Is there a possibility to expand / collapse all groups (or group by group) at runtime with a method (equivalent to pressing the + or - button in the group header)

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
	.BeginUpdate()
	.EnsureVisibleColumn(0)
	With .Items
		.ExpandItem(.FirstVisibleItem) = False
	End With
	.EndUpdate()
End With
799
Is there any public method to export the selected data

With AxGrid1
	.BeginUpdate()
	With .Columns
		.Add("C1")
		.Add("C2").FormatColumn = "1 index `A-Z`"
		.Add("C3").FormatColumn = "100 index ``"
	End With
	With .Items
		.AddItem("Item 1")
		.SelectItem(.AddItem("Item 2")) = True
		.AddItem("Item 3")
	End With
	.EndUpdate()
	Debug.Print( "Export CSV Selected Items Only:" )
	Debug.Print( .Export("","sel") )
End With
798
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

With AxGrid1
	.BeginUpdate()
	.ScrollBars = EXGRIDLib.ScrollBarsEnum.exDisableBoth
	.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exVScroll,EXGRIDLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(&H2,EXGRIDLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXGRIDLib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHSBack,.get_Background(EXGRIDLib.BackgroundPartEnum.exVSBack))
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHSThumb,.get_Background(EXGRIDLib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXGRIDLib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXGRIDLib.BackgroundPartEnum.exVSBack))
	.EndUpdate()
End With
797
I need to format a Column with Currency Format, but we use we are using Dhirams (AED)for the Amount. How to do this

Dim h
With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Name")
		With .Add("Currency")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "currency(value)"
		End With
		With .Add("Format")
			.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "`AED ` + (value format ``)"
		End With
	End With
	With .Items
		h = .AddItem("Value 1")
		.CellValue(h,1) = 10
		.CellValue(h,2) = 10
		h = .AddItem("Value 2")
		.CellValue(h,1) = 20
		.CellValue(h,2) = 20
	End With
	.EndUpdate()
End With
796
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
			.Filter = "MAZDA"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
			.Filter = "AIR BAG"
		End With
	End With
	With .Items
		.CellValue(.AddItem("Mazda"),1) = "Air Bag"
		.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellValue(.AddItem("Ford"),1) = "Air condition"
		.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
795
How can I have a case-sensitive filter

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = EXGRIDLib.FilterTypeEnum.exFilterDoCaseSensitive Or EXGRIDLib.FilterTypeEnum.exFilter
			.Filter = "Mazda"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = EXGRIDLib.FilterTypeEnum.exFilterDoCaseSensitive Or EXGRIDLib.FilterTypeEnum.exPattern
			.Filter = "Air Bag"
		End With
	End With
	With .Items
		.CellValue(.AddItem("Mazda"),1) = "Air Bag"
		.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellValue(.AddItem("Ford"),1) = "Air condition"
		.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
794
How can I exclude an item from aggregate/total computation

Dim h
With AxGrid1
	.Columns.Add("Default").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.CellValue(h,0) = "sum(all,rec,%0)"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "`Sum: ` + (value format ``) "
		.AddItem(10)
		h = .AddItem(20)
		.SortableItem(h) = False
		.FormatCell(h,0) = "value + ` <fgcolor=808080> this item is excluded from aggregate computations</fgcolor>`"
		.AddItem(30)
	End With
End With
793
Is is possible to change the default group header to display sum rather than count

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByFormatCell = "'<caption> (sum: <b>' + value + '</b>, of Freight)'"
		.GroupByTotalField = "sum(current,rec,%6)"
		.SortOrder = True
	End With
	.EndUpdate()
End With
792
How do I get the caption of the group during the AddGroupItem event

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	With AxGrid1
		With .Items
			Debug.Print( "Caption:" )
			Debug.Print( .CellCaption(e.item,.GroupItem(e.item)) )
			Debug.Print( "Value:" )
			Debug.Print( .CellValue(e.item,.GroupItem(e.item)) )
		End With
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	With .Columns.Item(1)
		.GroupByFormatCell = "'<b><caption></b> (' + value + ') group'"
		.SortOrder = True
	End With
	.EndUpdate()
End With
791
Is it possible, to add more aggregate functions to grouping header

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	With AxGrid1
		With .Items
			.FormatCell(e.item,.GroupItem(e.item)) = "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
			.CellValue(e.item,"Min") = "min(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Min") = EXGRIDLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Max") = "max(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Max") = EXGRIDLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Sum") = "sum(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Sum") = EXGRIDLib.ValueFormatEnum.exTotalField
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns
		.Add("Min").Visible = False
		.Add("Max").Visible = False
		.Add("Sum").Visible = False
	End With
	.EndUpdate()
End With
790
Is it possible to display more aggregate functions to a single cell (method 2)

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 13
	.HeaderVisible = False
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items")
		.Add("Quantity").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		.Add("Sum").Visible = False
		.Add("Min").Visible = False
		.Add("Max").Visible = False
	End With
	With .Items
		h = .AddItem("Items")
		.CellMerge(h,0) = 1
		.FormatCell(h,0) = "`Items, <b>sum(` + %2 + `), min(` + %3 + `), max(` + %4 + `)</b>`"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellValue(h,2) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,2) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellValue(h,3) = "min(current,dir,dbl(%1))"
		.CellValueFormat(h,3) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellValue(h,4) = "max(current,dir,dbl(%1))"
		.CellValueFormat(h,4) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellValue(.InsertItem(h,Nothing,"Item 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Item 2"),1) = 20
		.CellValue(.InsertItem(h,Nothing,"Item 3"),1) = 30
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
789
How can I use the current in the aggregate/total field

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 13
	.HeaderVisible = False
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items")
		.Add("Quantity").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	End With
	With .Items
		h = .AddItem("Items")
		.CellValue(h,1) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField
		.FormatCell(h,1) = "`Total: `+ value"
		.CellValue(.InsertItem(h,Nothing,"Item 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Item 2"),1) = 20
		.CellValue(.InsertItem(h,Nothing,"Item 3"),1) = 30
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
788
How can I prevent a specified item to be not included in the aggregate/total function

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h,h1
With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.HasLines = EXGRIDLib.HierarchyLineEnum.exThinLine
	.HeaderVisible = False
	.Columns.Add("Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		h = .AddItem("Numbers")
		.CellEditorVisible(h,0) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.ItemBold(.InsertItem(h,Nothing,10)) = True
		.ItemBold(.InsertItem(h,Nothing,20)) = True
		.ItemBold(.InsertItem(h,Nothing,30)) = True
		h1 = .InsertItem(h,Nothing,"not included")
		.CellEditorVisible(h1,0) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellValueFormat(h1,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(h1,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.SortableItem(h1) = False
		h1 = .InsertItem(0,Nothing,"sum(all,rec,dbl(%0))")
		.ItemBold(h1) = True
		.SelectableItem(h1) = False
		.CellValueFormat(h1,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h1,0) = "`Sum: ` + value"
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
787
Is is possible to specify which items/cells/fields to be included by the aggregate/total function I am using

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	With AxGrid1
		.Items.SortableItem(e.item) = False
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxGrid1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_CellStateChangedEvent) Handles AxGrid1.CellStateChanged
	With AxGrid1
		With .Items
			.SortableItem(e.item) = False
		End With
		.Refresh()
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.Columns.Add("Check Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		.CellHasCheckBox(.AddItem(10),0) = True
		h = .AddItem(20)
		.CellHasCheckBox(h,0) = True
		.CellState(h,0) = 1
		.CellHasCheckBox(.AddItem(30),0) = True
		h = .AddItem("sum(all,rec,dbl(%0))")
		.SelectableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "`sum on checked items : ` + value"
	End With
	.EndUpdate()
End With
786
Can I display multiple total/aggregate functions such as sum, min or max, into a single cell (method 1)

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.Columns.Add("Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		.AddItem(10)
		.AddItem(20)
		.AddItem(30)
		h = .AddItem("sum(all,rec,dbl(%0))")
		.SelectableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "`sum: ` + value"
		h = .SplitCell(h,0)
		.CellValue(0,h) = "min(all,rec,dbl(%0))"
		.CellValueFormat(0,h) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(0,h) = "`min: ` + value"
		h = .SplitCell(0,h)
		.CellValue(0,h) = "max(all,rec,dbl(%0))"
		.CellValueFormat(0,h) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(0,h) = "`max: ` + value"
	End With
	.EndUpdate()
End With
785
How can I use the index of the item in total/aggregate functions, rather than root or parent

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	.Columns.Add("Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Columns.Add("Idx")
		.FormatColumn = "0 index ``"
		.Width = 24
		.AllowSizing = False
		.Enabled = False
	End With
	With .Items
		h = .AddItem("3 Numbers")
		.ItemHeight(h) = 0
		.SelectableItem(h) = False
		.InsertItem(h,Nothing,10)
		.InsertItem(h,Nothing,20)
		.InsertItem(h,Nothing,30)
		.ExpandItem(h) = True
		h = .AddItem("sum(0,dir,dbl(%0))")
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.SelectableItem(h) = False
		.FormatCell(h,0) = "`sum of first three numbers is ` + value"
		h = .AddItem("3 Numbers")
		.ItemHeight(h) = 0
		.SelectableItem(h) = False
		.InsertItem(h,Nothing,15)
		.InsertItem(h,Nothing,35)
		.ExpandItem(h) = True
		h = .AddItem("count(5,dir,dbl(%0))")
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.SelectableItem(h) = False
		.FormatCell(h,0) = "`count of next two numbers is ` + value"
	End With
	.EndUpdate()
End With
784
How can I have a better view of what current, parent, all, dir or rec means in total/aggregate fields

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim h,h1
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Columns.Add("Numbers").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(current,dir,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=FF0000><b>Direct</b> children: '+value + `</fgcolor> using <a>sum(current,dir,dbl(%0))`"
		.ItemForeColor(.InsertItem(h,Nothing,10)) = RGB(255,0,0)
		.ItemForeColor(.InsertItem(h,Nothing,20)) = RGB(255,0,0)
		.ItemForeColor(.InsertItem(h,Nothing,30)) = RGB(255,0,0)
		.ExpandItem(h) = True
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(current,rec,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=00FF00><b>Leaf</b> chidlren: '+value +`</fgcolor> using <a>sum(current,rec,dbl(%0))`"
		.ItemForeColor(.InsertItem(.InsertItem(.InsertItem(.InsertItem(h,Nothing,100),Nothing,10),Nothing,10),Nothing,1)) = RGB(0,255,0)
		.ItemForeColor(.InsertItem(.InsertItem(h,Nothing,200),Nothing,2)) = RGB(0,255,0)
		.ItemForeColor(.InsertItem(.InsertItem(h,Nothing,300),Nothing,3)) = RGB(0,255,0)
		h1 = .InsertItem(h,Nothing,"sum(parent,direct,%0)")
		.CellValueFormat(h1,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h1,0) = "'sum of <b>Parent Direct</b> children: '+value +`</fgcolor> using <a>sum(parent,direct,%0)`"
		h1 = .InsertItem(h,Nothing,"sum(parent,rec,%0)")
		.CellValueFormat(h1,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h1,0) = "'sum of <fgcolor=00FF00><b>Parent Leaf</b> children: '+value +`</fgcolor> using <a>sum(parent,rec,%0)`"
		.ExpandItem(0) = True
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(all,rec,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=FF00FF><b>All (leaf children)</b>: '+value  +`</fgcolor> using <a>sum(all,rec,dbl(%0))`"
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(all,all,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=FF00FF><b>All (children)</b>: '+value  +`</fgcolor> using <a>sum(all,all,dbl(%0))`"
	End With
	.EndUpdate()
End With
783
Do you have any Fit-To-Page options when printing the control

Dim rs
With AxGrid1
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = On"
		.PrintExt = AxGrid1.GetOcx()
		.Preview()
	End With
End With
782
How do I hide the selection

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(-8)
	End With
	.EndUpdate()
End With
781
How do I access the cells, or how do I get the values in the columns

Dim h
With AxGrid1
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
	End With
	With .Items
		h = .AddItem("Item 1")
		.CellValue(h,1) = "SubItem 1.1"
		.CellValue(h,2) = "SubItem 1.2"
		Debug.Print( .CellValue(h,2) )
	End With
End With
780
I am using the FormatColumn/FormatCell to format my columns. Is it possible to ignore the SelForeColor, so the foreground color for selected items does not override my settings

' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxGrid1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.SelectionChanged
	With AxGrid1
		With .Items
			.ClearItemBackColor(0)
			.ItemBackColor(.SelectedItem(0)) = RGB(128,255,255)
		End With
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(-8)
	End With
	.EndUpdate()
End With
779
How can I get the number of columns being shown in the control's SortBar part

Dim rs
With AxGrid1
	.BeginUpdate()
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.Columns.Item(1).SortOrder = True
	.Columns.Item(2).SortOrder = True
	Debug.Print( .Columns.SortBarColumnsCount )
	.EndUpdate()
End With
778
How can I add a header and footer for grouping items

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	Dim h
	With AxGrid1
		With .Items
			h = .InsertItem(e.item,Nothing,"")
			.SelectableItem(h) = False
			.CellValue(h,6) = "min(parent,rec,dbl(%6))"
			.CellValueFormat(h,6) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
			.FormatCell(h,6) = "`<font ;7><b>Min</b>: ` + value"
			.ItemPosition(h) = 0
			h = .InsertItem(e.item,Nothing,"")
			.SelectableItem(h) = False
			.CellValue(h,6) = "max(parent,rec,dbl(%6))"
			.CellValueFormat(h,6) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
			.FormatCell(h,6) = "`<font ;7><b>Max</b>: ` + value"
		End With
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate()
End With
777
How can I add a footer for grouping items

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	Dim h
	With AxGrid1
		With .Items
			h = .InsertItem(e.item,Nothing,"")
			.SelectableItem(h) = False
			.CellValue(h,6) = "sum(parent,rec,dbl(%6))"
			.CellValueFormat(h,6) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
			.FormatCell(h,6) = "`<font ;7><b>Sum</b>: ` + value"
		End With
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate()
End With
776
How can I handle the event for the inside controls

' ItemOleEvent event - Fired when an ActiveX control hosted by an item has fired an event.
Private Sub AxGrid1_ItemOleEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ItemOleEventEvent) Handles AxGrid1.ItemOleEvent
	With AxGrid1
		Debug.Print( e.ev )
	End With
End Sub

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = True
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.ExpandItem(h) = True
		h = .InsertControlItem(h,"Exontrol.Grid")
		.ItemHeight(h) = 256
		With .ItemObject(h)
			.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
			.ScrollBySingleLine = True
			.Columns.Add("C1")
			.Columns.Add("C2")
			With .Items
				.CellValue(.AddItem(1),1) = 2
			End With
			h = .Items.AddItem(3)
			.Items.CellValue(h,1) = 4
			With .Items
				.ExpandItem(h) = True
				h = .InsertControlItem(h,"Exontrol.Grid")
				With .ItemObject(h)
					.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
					.Columns.Add("Inside-Inside")
					With .Items
						h = .AddItem("item")
						.InsertItem(h,Nothing,"child 1")
						.InsertItem(h,Nothing,"child 2")
						.InsertItem(h,Nothing,"child 3")
					End With
				End With
			End With
		End With
	End With
End With
775
How can I specify the position of the item manually (Method 2)

With AxGrid1
	.Columns.Add("Default")
	With .Items
		.AddItem("Child 3")
		.AddItem("Child 2")
		.AddItem("Child 1")
		.ItemPosition(.ItemByIndex(0)) = 2
		.ItemPosition(.ItemByIndex(1)) = 1
		.ItemPosition(.ItemByIndex(2)) = 0
	End With
End With
774
How can I specify the position of the item manually (Method 1)

Dim h1,h2,h3
With AxGrid1
	.Columns.Add("Default")
	With .Items
		h3 = .AddItem("Child 3")
		h2 = .AddItem("Child 2")
		h1 = .AddItem("Child 1")
		.ItemPosition(h3) = 2
		.ItemPosition(h2) = 1
		.ItemPosition(h1) = 0
	End With
End With
773
Is it possible to open second inside grid in inside-grid

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = True
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.ExpandItem(h) = True
		h = .InsertControlItem(h,"Exontrol.Grid")
		.ItemHeight(h) = 256
		With .ItemObject(h)
			.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
			.ScrollBySingleLine = True
			.Columns.Add("C1")
			.Columns.Add("C2")
			With .Items
				.CellValue(.AddItem(1),1) = 2
			End With
			h = .Items.AddItem(3)
			.Items.CellValue(h,1) = 4
			With .Items
				.ExpandItem(h) = True
				h = .InsertControlItem(h,"Exontrol.Grid")
				With .ItemObject(h)
					.Columns.Add("Inside-Inside")
					.Items.AddItem("item")
				End With
			End With
		End With
	End With
End With
772
Computed field concatating strings values to calculated values. Is there something we can change this

With AxGrid1
	With .Columns
		.Add("A")
		.Add("B")
		.Add("Sum").ComputedField = "dbl(%0) + dbl(%1)"
		.Add("Concaternation").ComputedField = "str(%0) + str(%1)"
	End With
	With .Items
		.CellValue(.AddItem(1),1) = 2
		.CellValue(.AddItem(21),1) = 22
	End With
End With
771
Is it possible the Items.FormatCell or Column.FormatColumn to use values from other columns

With AxGrid1
	With .Columns
		.Add("A").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		.Add("B").FormatColumn = "currency(%0)"
		.Add("C").FormatColumn = "%1 format ''"
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
End With
770
Is it possible to do un-grouping the items

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub AxGrid1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.ClickEvent
	With AxGrid1
		.Ungroup()
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.ReadOnly = EXGRIDLib.ReadOnlyEnum.exReadOnly
	With .Columns.Item(1)
		.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		.Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 15790320
		.SortOrder = True
	End With
	.EndUpdate()
End With
769
How can I change the visual aspect of the links in the sort bar

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.BackColorSortBar = RGB(240,240,240)
	.BackColorSortBarCaption = .BackColor
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
"AWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABj" & _
"EovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI")
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		.Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 15790320
		.SortOrder = True
	End With
	With .Columns.Item(5)
		.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		.Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 16119285
		.SortOrder = True
	End With
	.set_Background(EXGRIDLib.BackgroundPartEnum.exSortBarLinkColor,16777216)
	.EndUpdate()
End With
768
Is it possible to display no +/- button for grouped items

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		.Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 15790320
	End With
	.EndUpdate()
End With
767
How can I remove the extra information that grouped items display

Dim rs
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByTotalField = ""
		.GroupByFormatCell = ""
	End With
	.EndUpdate()
End With
766
How can I change the label, caption or the formula of the grouped items

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	With AxGrid1
		.Items.ItemDividerLineAlignment(e.item) = EXGRIDLib.DividerAlignmentEnum.DividerBoth
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ScrollBySingleLine = True
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByTotalField = "sum(current,rec,%6)"
		.GroupByFormatCell = "'<font ;11>' + <caption> + '</font> <fgcolor=808080>( Freight: ' + currency(value) + ')'"
	End With
	.DefaultItemHeight = 28
	.EndUpdate()
End With
765
How can I change the aspect of grouped items

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	Dim l
	With AxGrid1
		With .Items
			.ItemDividerLine(e.item) = EXGRIDLib.DividerLineEnum.EmptyLine
			l = .GroupItem(e.item)
			.CellSingleLine(e.item,l) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
			.CellBold(e.item,l) = True
			.CellBackColor(e.item,l) = &H1000000
		End With
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ScrollBySingleLine = True
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.TreeColumnIndex = -1
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BKoCg6AADACAxRDAMgBQKAAzQFAYcBuGiGAAGMZhWgmFgAQhFcZQSKUOQTDKMIziaQIRDEMw5SSNIxyAK0QBkAqNQCkKKwIgmNYDSBMYABB" & _
"IMBwiGQaRJnegYRDUMJCQjRVITVLMNoXDKZIyqEAHfpWVJWSLHcIhDBJUjcOYyTiOQrzCK8dB0G6bIrGEZpYRAPwEYDIIjbQhqFYDChCNLwHScEAxC4kLhnKK6Vb9d6H" & _
"YhiOJYXhmDrfR7IMhyLI8QafFqXZhmOZZXizPY9T7QNB0LQ8eZbJqnahqOpaOx2W5dV7YNh2LTWGzXNq3bhuOzLbrme59X7gOB3RZeE4XRrHchxKq8XxnG6dZ7oOTUXo" & _
"fFOK5WmudQTh2LpfHOO5em+doSh4LwfhOS5mnGIw9D6LxfjOW5unSIQ+D8L4flOa5yD2fg/D+L5fnOe54ByigGAKAJgEgBBrgGYIICYCoCmCSAcGOA5hAgRgSgSYQBGo" & _
"FoFmGCBmBqBphGESgegeYgIgYIoHkSKIWCaCZigiJgqgqYhog4LoLmGSJGDKBZhEiVg2gMY4ImYCIBGOSJ1n6D5kAeZZ2hCZBHj4RoRl6J4eEqEpeAkNhOHaXYJEYUh0" & _
"GUSRVkwchlgkZZChaZZGnWOoXmYBpOGKGJamaLhmhmWhJiYahnlmSY2G4ZZZEmRhyGMZxJlWCBhFCFgWHaHpYkmSh+GSJp6AWG4amgRoOGeIZahmEoKGyJgKDWOIXGkB" & _
"wGFmJJcHkWoWHQJQqGWVoTmmRx+EuJ5eFkIoiHuJBKhWdIQGqB52D2KpgDiaougMIxqyODJrEgbgvi2YgYjKOoumKSpij4FIrFsBg0iyLBKj6RoOmqSwmimMpkCqGpOi" & _
"ibQJCaII0mmWxWFCJotgoXpahWaRLHaEY3mWag6mKIpuEmFoIjmaBbiYbIgi6RhaH+O5Onmcpyh2VYAAEASAg")
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exHLines
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.GroupByFormatCell = "'EmployeeID: ' + <caption> + '<br><font ;7><fgcolor=808080>Count: ' + value"
	End With
	.EndUpdate()
End With
764
How can I remove or change the line it shows for grouped items

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	With AxGrid1
		.Items.ItemDividerLine(e.item) = EXGRIDLib.DividerLineEnum.EmptyLine
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With
763
Is it possible to determine whether an item is regular or a group by item
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
	Dim c,h,hit
	With AxGrid1
		h = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.GroupItem(h) )
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With
762
How can I collapse all items when the user performs a grouping

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	With AxGrid1
		.Items.ExpandItem(e.item) = False
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With
761
Is it possible to select columns that user can drop to the sort bar, when using the Group By feature

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor=FF0000>Try to drag the EmployeeID column here."
	.AllowGroupBy = True
	.Columns.Item(1).AllowGroupBy = False
	.EndUpdate()
End With
760
How can I enable the Group By support, with no sort bar

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate()
End With
759
Does your control support Group-By feature

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With
758
How can I restrict a field to number only (Method 3, Float)

With AxGrid1
	With .Columns.Add("Numbers").Editor
		.EditType = EXGRIDLib.EditTypeEnum.EditType
		.Numeric = EXGRIDLib.NumericEnum.exFloat
	End With
	.Items.AddItem(12)
End With
757
How can I restrict a field to number only (Method 2, Integer only)

With AxGrid1
	With .Columns.Add("Numbers").Editor
		.EditType = EXGRIDLib.EditTypeEnum.EditType
		.Numeric = EXGRIDLib.NumericEnum.exInteger
	End With
	.Items.AddItem(12)
End With
756
How can I restrict a field to number only (Method 1)

With AxGrid1
	With .Columns.Add("Numbers").Editor
		.EditType = EXGRIDLib.EditTypeEnum.MaskType
		.Mask = "###.###"
	End With
	.Items.AddItem(12)
End With
755
Is it possible to include only leaf items ( items with no childs ) in the drop down list

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox Or EXGRIDLib.FilterListEnum.exSortItemsAsc Or EXGRIDLib.FilterListEnum.exLeafItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
754
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Child 1"
		.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
	End With
	With .Columns.Add("Date")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowExclude Or EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox Or EXGRIDLib.FilterListEnum.exNoItems
		.Filter = #12/28/2010#
		.FilterType = EXGRIDLib.FilterTypeEnum.exDate
	End With
	.FilterCriteria = "%0 or %1"
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarOr,"<font ;18><fgcolor=FF0000>or</fgcolor></font>")
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,"<font ;18><fgcolor=FF0000>and</fgcolor></font>")
	With .Items
		h = .AddItem("Root 1")
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = #12/27/2010#
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = #12/28/2010#
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = #12/29/2010#
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = #12/30/2010#
	End With
	.ApplyFilter()
	.EndUpdate()
End With
753
Is it possible exclude the dates being selected in the drop down filter window

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Date")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowExclude Or EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox Or EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With
752
How can I display a calendar control inside the drop down filter window

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Date")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox Or EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With
751
Is it possible to include the dates as checkb-boxes in the drop down filter window

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox
		.Filter = "to 12/27/2010"
		.FilterType = EXGRIDLib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With
750
How can I filter items for dates before a specified date

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exNoItems
		.Filter = "to 12/27/2010"
		.FilterType = EXGRIDLib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With
749
Is it possible to filter dates

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With
748
Is it possible to change the Exclude field name to something different, in the drop down filter window

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarExclude,"Leaving out")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowExclude Or EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With
747
How can I display the Exclude field in the drop down filter window

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowExclude Or EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With
746
Is it possible to show and ensure the focused item from the control, in the drop down filter window

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.SelectItem(.InsertItem(h,Nothing,"Child 2")) = True
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
745
Is it possible to show only blanks items with no listed items from the control

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowBlanks Or EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
744
How can I include the blanks items in the drop down filter window

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowBlanks Or EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
743
How can I select multiple items in the drop down filter window, using check-boxes

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
742
Is it possible to allow a single item being selected in the drop down filter window

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXGRIDLib.FilterListEnum.exSingleSel
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
741
How can I display no (All) item in the drop down filter window

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarAll,"")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
740
Is it possible to display no items in the drop down filter window, so only the pattern is visible

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
739
How can I show the child items with no identation

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.HasLines = EXGRIDLib.HierarchyLineEnum.exThinLine
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
End With
738
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
737
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
End With
736
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesInsideLeaf
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
735
Is there other ways of showing the hierarchy lines (exGroupLinesInside)

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesInside
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
734
Is there other ways of showing the hierarchy lines (exGroupLines)

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLines
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"SubChild 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
733
Is it possible to display a column with buttons when using exCRD format

Dim h
With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.DefaultItemHeight = 36
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	With .Columns
		With .Add("Column1")
			.Visible = False
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Column2")
			.Visible = False
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Column3")
			.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
			.HeaderAlignment = EXGRIDLib.AlignmentEnum.CenterAlignment
			.Visible = False
			.Def(EXGRIDLib.DefColumnEnum.exCellHasButton) = True
			.Def(EXGRIDLib.DefColumnEnum.exCellButtonAutoWidth) = True
		End With
		With .Add("FormatLevel")
			.FormatLevel = "(0/1),2:64"
			.Def(EXGRIDLib.DefColumnEnum.exCellFormatLevel) = .FormatLevel
		End With
	End With
	With .Items
		h = .AddItem("Cell 1.1")
		.CellValue(h,1) = "Cell 1.2"
		.CellValue(h,2) = "Cell 1.3"
		h = .AddItem("Cell 2.1")
		.CellValue(h,1) = "Cell 2.2"
		.CellValue(h,2) = "Cell 2.3"
	End With
	.EndUpdate()
End With
732
How can I change the check-boxes appearance

Dim h
With AxGrid1
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Default")
		.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	With .VisualAppearance
		.Add(1,"XP:Button 3 12")
		.Add(2,"XP:Button 3 11")
		.Add(3,"XP:Button 3 10")
	End With
	.set_CheckImage(EXGRIDLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(EXGRIDLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(EXGRIDLib.CheckStateEnum.PartialChecked,50331648)
End With
731
Is it possible to disable the cell's editor context menu
With AxGrid1
	With .Columns.Add("Edit").Editor
		.EditType = EXGRIDLib.EditTypeEnum.EditType
		.Option(EXGRIDLib.EditorOptionEnum.exEditAllowContextMenu) = False
	End With
	With .Items
		.AddItem(10)
		.AddItem(20)
	End With
End With
730
How can I find a value in a drop down editor

With AxGrid1
	With .Columns.Add("DropDownList").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
		.AddItem(1,"DDList 1")
		.AddItem(2,"DDList 2")
		.AddItem(3,"DDList 3")
	End With
	With .Columns.Add("DropDown").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownType
		.AddItem(1,"DDType 1")
		.AddItem(2,"DDType 2")
		.AddItem(3,"DDType 3")
	End With
	With .Items
		.CellValue(.AddItem(1),1) = AxGrid1.Columns.Item(1).Editor.FindItem(1)
		.CellValue(.AddItem(2),1) = AxGrid1.Columns.Item(1).Editor.FindItem(2)
	End With
End With
729
What is the difference between DropDownType and DropDownListType

With AxGrid1
	With .Columns.Add("DropDownList").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	End With
	With .Columns.Add("DropDown").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	End With
	With .Items
		.CellValue(.AddItem(1),1) = "Any"
		.CellValue(.AddItem(2),1) = "Any"
	End With
End With
728
How can I add or change the padding (spaces) for captions in the control's header

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Padding-Left").Def(EXGRIDLib.DefColumnEnum.exHeaderPaddingLeft) = 18
	With .Columns.Add("Padding-Right")
		.Def(EXGRIDLib.DefColumnEnum.exHeaderPaddingRight) = 18
		.HeaderAlignment = EXGRIDLib.AlignmentEnum.RightAlignment
	End With
	.EndUpdate()
End With
727
Do you have any plans to add cell spacing and cell padding to the cells

With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns.Add("Padding-Left")
		.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
		.Def(EXGRIDLib.DefColumnEnum.exCellPaddingLeft) = 18
	End With
	.Columns.Add("No-Padding").Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
	.Columns.Add("Empty").Position = 0
	With .Items
		.CellValue(.AddItem("Item A.1"),1) = "Item A.2"
		.CellValue(.AddItem("Item B.1"),1) = "Item B.2"
		.CellValue(.AddItem("Item C.1"),1) = "Item C.2"
	End With
	.EndUpdate()
End With
726
Is it possible to change the height for all items at once

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(0) = True
	End With
	.EndUpdate()
	.DefaultItemHeight = 12
	.Items.ItemHeight(0) = 12
End With
725
Can I display somehow the filter just on the top of the list, with an editor associated to each column

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		Debug.Print( "Locked:" )
		Debug.Print( .Items.IsItemLocked(e.item) )
		With .Columns.Item(e.colIndex)
			.Filter = e.newValue
			.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
		End With
		.ApplyFilter()
	End With
End Sub

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub AxGrid1_MouseUpEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseUpEvent) Handles AxGrid1.MouseUpEvent
	With AxGrid1
		.Edit(.Items.LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0))
	End With
End Sub

Dim h,rs
With AxGrid1
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 2
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.CellEditor(h,0).EditType = EXGRIDLib.EditTypeEnum.EditType
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,1)
		.ItemHeight(h) = 4
		.ItemDivider(h) = 0
		.SelectableItem(h) = False
	End With
End With
724
Is it possible to display information about the firing events
' Event event - Notifies the application once the control fires an event.
Private Sub AxGrid1_Event(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_EventEvent) Handles AxGrid1.Event
	With AxGrid1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub


723
How can I change the layout of my columns when using the exCRD

Dim h
With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.DefaultItemHeight = 36
	With .Columns
		With .Add("Column1")
			.Visible = False
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Column2")
			.Visible = False
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		.Add("Column3").Visible = False
		With .Add("FormatLevel")
			.FormatLevel = "(0/1),2"
			.Def(EXGRIDLib.DefColumnEnum.exCellFormatLevel) = .FormatLevel
		End With
	End With
	With .Items
		h = .AddItem("Cell 1.1")
		.CellValue(h,1) = "Cell 1.2"
		.CellValue(h,2) = "Cell 1.3"
		h = .AddItem("Cell 2.1")
		.CellValue(h,1) = "Cell 2.2"
		.CellValue(h,2) = "Cell 2.3"
	End With
	.EndUpdate()
End With
722
Is it possible to scroll the control's content by clicking and moving the mouse up or down

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragScroll
	.EndUpdate()
End With
721
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
Dim h,h1,h2,h3
With AxGrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_HTMLPicture("p1","c:\exontrol\images\card.png")
	.set_HTMLPicture("p2","c:\exontrol\images\sun.png")
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragCopySnapShot
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = EXGRIDLib.HierarchyLineEnum.exThinLine
	.ShowFocusRect = False
	.DefaultItemHeight = 26
	.Columns.Add("Task")
	With .Items
		h = .AddItem("<img>p1:32</img>Group 1")
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.ItemDivider(h) = 0
		.ItemBold(h) = True
		h1 = .InsertItem(h,Nothing,"Task 1")
		h2 = .InsertItem(h,Nothing,"Task 2")
		h3 = .InsertItem(h,Nothing,"Task 3")
		h = .AddItem("<img>p2:32</img>Group 2")
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.ItemBold(h) = True
		.ItemDivider(h) = 0
		h1 = .InsertItem(h,Nothing,"Task")
		.ExpandItem(0) = True
	End With
	.EndUpdate()
End With
720
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image

Dim h,rs,var_HTMLPicture
With AxGrid1
	.BeginUpdate()
	.set_HTMLPicture("p1","gCJKBOI4NBQaBQAhQNJJIIhShQAIERFQIA0RAYGLriiIEM5BJpBiIARYlMBNhQPLhJIhBKhoQLlTTLV4la5VYx/fZVOoee7de62drYdI4YIWcIteIQEbEEAzCghEwIR" & _
"IZKSmJD8EIZMzARgZKYmEAmDISYgEAISIJKdg4JzSOK7bp9b73HiqezeNYxLD7Th7N67dpmQSQIZJUpzVRqT46PY9Xy1yL2Qz/c6HXbzHoAKYgWrzC7tZDtLgBOpzOaj" & _
"QApWDXZwOdABb6eHa+fCHMTCB7AMo7S6AIxMcADcAIfHEe6AQ7/G7zfhfHqeAb/AJ8B6TfITMAVGLrd4Db78aY/fydH77axfPjjS5fP7tcLMY6EOYed4dbyHcwHCoHfA" & _
"ICCApOHEDgcA+OAnACAJgBya5jAoLh5hCc4OGcQ47GeQIBneNoGHaTI5kAKxOHuHAzjGXp5mwAZgnyNB/nCPh9g+ABinGYA1kmGYAAqThjgGQRwHiThPC8Vhfnma5/ng" & _
"XZvn8ew7keQBfmOUAYCIBj7ngbY/nqS4/nkDYzieXwLn+dp+j+EpiE8CAAEKNwZFOTZ3FCOpgHyRQHkCcAJmUDRzgEHwhAYHoRAGHxADuCAxAeDxOAcHA3jmRw4guaoa" & _
"mcbZMAwM4EDWTkNgGqQqHYPJEDmKhrDwB4QmcKAsgkcQGGQHBLiYfBGjcCESFATIID0KgDjgBJ3hGVQVk4JZqHcbpklef58g+fwFScd09j+AwnECWY0FeEIBFmdIyAsZ" & _
"4fHyEIRB6Ch4F8UZLDWdQ5CAAheEOTAxGmWgDhqYIaEGO4AgiAYNm8RhwACKo4HaCgviCHptB4Uo9ACAQlFsG5rEINAFh4WpxAQRAqE4QAlGARJGjmLw2EYfAdk8DIom" & _
"YGJKjISY5AiChKGYIg/EMUg7iEGZ7B8GABn4Do0jYWRVASMgiGoLwTHMdJKEkaI9CaZwej6H85mcCAGlwBQfFoH4bFyJgEAOdRBBCEoSC4ZpUAOOpwBURBbieeYzEeKw" & _
"IAOJQAFSVABp6U5Kg+PhvkGex8HAOJnE2ZgPF4WY1kQHALiic54lcYYQiAQ55g6VQbHMdZfjyF4PCYTTLkaAQGCadRIE0VImlQLQgm0EhalsNYMkgHRMDKHpiGoEYmlA" & _
"RpZDQYQMiECYzHwQhEHCKZOmOVZ+mMJYgFqIRgBYVoLCmXgHlAaoeCUYJKgcU4IneHoQiIQR5kIDBEBiGhMDoHgL4CQ/BiBeEIOILgRBaBwL8fweAZiZGaNEWoYBwjuB" & _
"SAAOoiASBECMJwG44Qih6EEDMcIRBmCyBcPQRgwwBCRECJgPQ+h0gRBCDQZYNwXjwB8FAVYvQsC8BSKYWy+BvABC8DwSobAghSAEOoFgjGKAVEeJCA4oBxDZB2PwWQCW" & _
"qgQAkCEAgfA4D2HSB0PwEwsBdCICkBoKgIjVAEFcD4gw8D0CsAEXwnQtgFBoAUPIahmiICANQRwWgjCDGKAsbwEBaCjEozkWQDhECcCiMsIAjBIiQBMAYA4DRUCMBsCk" & _
"YA+xaCFESG8P4LwBCqGqIQOgiRtASESIYOA+xmAnCoIUYo1QJhiE4BIAT+REghVkG0SwcgnCbAEJoI44QoCnFQFQCgjx0BdCSG8XIzQegFc0KgbIJgWgkDUBkOIrgEic" & _
"COKAM4HBwDnA+JkIQXg9jYBmJ1SI3w4hxDsIYNQzxnDeEUPkZwIQfAaFcE0LQmwsAtEsEYAo8BXCjCsEAAYLggDQEIOQYIsBWgeFSBkEo4A+iPBQIQGAIQ8AIBCBEPow" & _
"BDjQCkKQAAHhoiMBGFEWoggFDqEkBkIA7RcjKDwNcAYthjh9AeBAIoKhCDUDaD0YIewUAlFiFoRqrBlhVGOHoAoXw9ADH0H4cA2RZieFmAsZAQwnitHgPoS4RhfDyEqH" & _
"MaQcAhiaHoAQa4gwDCzCEB4GISgIgACeM0DIHwQi0AZAkOIGgoCfFQncQ4ZhcgqHYB8HwagsCPGaOoZwAhQATHGAwKgcAAiVGMjsSIihRBcFeK4CILQ7hjGAMsCoUBSg" & _
"iEANMYg1RiiCAoKAd45wuCeDMK4VwYAbA3AQDgIwchDCUD2EIdAqA8gkCuAsSgXQZCcFeFcM4jAxhPHYOYZgdxHChAwCwJQhQ4hMB4H8SwKAKgeA4MMfwQQRV9qGPcGw" & _
"UQDjOBOGoDwUA9BWBuJ8CEIxlh7G+MgKgxRciEEkHERo9hUBWWIJURgqhRA4CoEsJYjxXhQAAKKoY8R6DjGYLMaYjgMAgBKKgAQwQ7jcBYGAP4Fx9TnE8MMOgAhDiHFg" & _
"FgYAcAFA7F2DATYdxGCjCCGcWIgBzinAWI4R4MxZh5FEMgEIVwrgzCUPESgIhCCYCwP4CgPg/DiASDEQIwhnBuBIMYIQ6g9X2D2GYOYmxTD3AcB8CQ3hbh4FaGoHI3gk" & _
"j7HIE4awEAiAtAaCkXwxQSBAH6CsEAgBhi5BSMscoihug5HxmgLgZQFhYAqKYGIMRPgvCwCwFgqh9gwFOOQAoKg4D8pm2UOIeQOAAHwOgEYWBXA7BcC4I4tBHDgBlkoQ" & _
"95x7hJFaN4OgwRbgAHWPEYIcw6gFFqEYUwUxnhsB8DITYGQciaHeL0bIKBZADAoG0CgFxWioDuGYNolQLAEAWkEagowVCs2SFAeIWBzD7A5NwC4kAuB4DgAQWYqRuj7G" & _
"SAoQwDCtgZH0OQCYGBjgOAiDgbAzxmBmDgHzjQQBvh3k+CwS4PR1jRHEMcNgAhLgXGMCsPgGAsguGeBkQ4cxTDzCGKYWYfQpDwCoAoRQZwzguA4B4BrVhsA7HhycDIpQ" & _
"jhrDCHkeoiR4gLDQIQYIXAtMfD6EAdQaBrMBEiLEJIFAoAdCiBEKgow8jNHOCqwgrhMi+A2PEMIThWiZFcIMaoCBIhEGSJkTgOwhCAFGAcBIRxvCmBqIcLIvwrC4FyIE" & _
"dYBRqDaEiEcRAYRBi/GcFIc4OBJDLCmNYVYGwzdGBMNMDIqgYC2DyO8dwQQLgHCWLsJwEB4hIHGNkVwWRvreAiI0LQKwRDZGwKAVgUQGD7AcEEUgIAnBQFEI0f4XAEO6" & _
"GsHADoaBSDkEKE0DQwwoCuBMMwQYBx4DwAIEoDwjQOBYhUgNhGAGBwgWB9gCADhXBZhkBfgtAAgFApBNhKABAcuohnAPhphug6B2B3BehghyAghRArAWBgAjBghDhPAp" & _
"AZF1DsB4hjAlBUBFBEhThiheArAFhVBtB1BIhuBiAHgUALBMgXhXg/hGAqAggbAuB+hZgKgQHdBSgTAxA2A1AfBDhigRBAgyBzApgFhAAjh9goAlhvBSBsArACsBgshA" & _
"BBhNgVgphqBvBAg8higxA0hPhoghhkgNgcBaBtBRhhBdBHB2B2AeBQgFgRhxh4ADAYgsgtBWBahchdBgB6h8gjgTBMABgIgghqh0AXAcAJhtBEAQAVBigZBMh5hUAKBN" & _
"guAKAph+BVgQBYBglUBUgKgbAOhZgEgOAOhghygagOAOAgAlARhRA5hOByAWh6g6p/gugChjAAhrABhWBDBHA6hDByBtgaBeg8hpATBVvSg2vRgDhSAHJxvQA+AhB4A5" & _
"hJB3h0gzgjhUAEBagFAnhPg/g2BUhIqJhchGA3hUgJBmh8BIAmAAgnB4BnBxhegjgMgtAyhsgphVheAdADA+O2hAhzB4AQBxA+AzAsABhpBYgBATBuhOheB1BshTBNBZ" & _
"g5gsBWAWAnBWALBYBUAOwAh0gTARhoB4segWBrg4A/Awhgh5h6Bch4hFhRghgFhSAjgjhwAshYBcAfAhh1AgAkAeg3geh5A8G2BSh6gHAAAVBnAghGBQBdA3A+gEAggM" & _
"gfhqgth4BQlMBXgGBBA3BJgxhZg0g7BVhEBhB/A3AxBahlBWP0g7BMh0h9BiBoh/AkBvhMh4AqnwABhjAWh0hEBUgCgjh2gUA1gcAdBAhOgOhMAmBggZh5BjA1gOgtBQ" & _
"h3h2hWBCg2gLgpAVsNBWhnAUBZhAhfBvgRhCAwASh6hbAUgyBihJBEBwA6gmh4BggBBSBBAygABghEgIgWAaBQB3BKgFAYBRAQAFBggig0BGgFAIg5hYhKBwB5BlAYBe" & _
"gPAwAuA6h2B3hhhnA+ASBiBGA5g4BYADgYhGBUBBhVhNhcgispBFA4A/hnhyAFhnAEBKH9hjh6gNBnAnAwgfB1gMhjhAh0hmBsAwBWhQAsBygshDAChYhNhZguB6AuES" & _
"BeB+gXB+ByABg3gugVgeAvg9g7hwBBgPh3z/AmATBYA/gsBshthngrBlBZhiBCgugaBeAFABBnA2h4hWAtB3BcBnBWghAxA1g/BCACBFgahKAFA+hrgIimgXAIhhBkBg" & _
"hAhihCwVArhshvA4h+AwASAChAAHAqhVgVoTB5B1gIoOAxBBBphzgegbgFgcAeB2BggMgWA1BDBWB4BxgHgLAmMrBrB1gHAUgdgeA9BdgJEbhDgfhNAQhah5B7AXhWhI" & _
"hdByAjh3gCgpB2Acg+hvB5hzBLhLhSBnB0BdhfBSBfqRgNhVAFAQhMB1hrhNAEhQhY1SB0ANAxgxA7gDg7A7gwBWAMg+BRB1hmBxApAjhlhtg6ADBAhdA8g8hZBpArBG" & _
"ANBFhTA2g3hQhLBIhshWBxhggQgmA9g8B/BeBxzzh/AXh8JCgDAqAdglAMg8B+AJhMBnBwB0BgggAPAjhrBFgThqA4gigPADgiAVASudB6gJBUhAgtAwB3h4BFFxhwBh" & _
"h7hQhyAhBnAlh6ASgOh/B9gFBIBrA8g6hbh2hWgrBmgpA1BjB9gkAmAWgAALBMA7g4A6AABnA6hLACglBjBChCAVBth9Atg1BTB3gGhZhhg0BrhvBNhJBSBvAzBTBjgn" & _
"hwBTgPhhBig8hjsJBIgRBKhPBJAjgXAXoYgPAHAHgABrhRhoB8U0B5BzBGBqhxBFAVAYBGAVg5BUhqAtAMhrgFhzAdgbhSAqA8B7AKAlAvB4gJANB4AxALAoAiVhpxBk" & _
"hqBZARBiAUgZBXBbAvKRARAzhFgGg9hdhMhshmAMARAMAIh5BnBeAgA6AyAdAMhUi4BeBPhsBMqrgzhJh3BdAchRARhXBYhhAYg7guAuhGAEBzAchLgrhYBeAMosB0AU" & _
"B8hNBygmhnquAbgbgOgHAVhaA/B6AvBvgwBthRhdBwB9h/g3A4BEhohdBgh3h/gwA3BHge0eg4B6BwBLBtg+BHABAOBagzApBNApBOh6gBghB5gBAI4QgLhTAEBMhBgu" & _
"gRgkhnAihOBlgtglhLBNBEg0hFBzBIvEhbhvBYBkB3gugzg+BehNBTg8A3hrhRBjAGhvA/BqBwhuBkBigygjgkAOgugbg5A+gGhpgkhnhkghh1gvAdAzhWhdBLBWAoAM" & _
"h4BYhbg3AqAZBHhBBjhiB/ACBqgPBjhADNAfh+hoBdAtgpAfgmhCh3gghgANBIg2BegABQAaAXg0AHBBBLAxAYM0AiBXg6gyhSgWANhLgzglhRAoBMB6ARgpAWhWg3Bt" & _
"BrR9hAAqg8gLAPtxAZhlgZAjhDgRgHgn1PgEBhgxBiB9hHAHgfgAAI09A1BYhZqNAwAYAHBWklgGBsgIBYhizSB4BMA4g8BjBcLHXkhCjqAIg1AsgwPRhWhsBshcBJBq" & _
"gEhMhhhBgUg8gsA2gCgHAQhBYYAzBaBAgnBkgAARgRZShpgLANA3BxgChmgVhyBnAmBBADgaBJmrh0iUB+hwB+gzB+h2gyA9hRhigdAIA+BHhkAkgtnMgAhehShtAHZz" & _
"BRgUidgqNYrtR1hThggtAEAfAohiBCBOA6AjA4gyhZgHA4ATg3BsB6g2hytDhPQwhjD5gLAVp+BDBsATgppBBkgMhzgdoOP+YahHB0BBW7gHBHAdBDB6hkB4gEhqAdB4" & _
"ByBRhPBbuqBLBrACAPB/g2BwBmhbhPBQgWg2h/B2BhgJhvA+B6AGBzhwB+AGOkAJhSB6B0All2BUgaB0BtAtBEgkBjAbgbAUBJBbh7rOgyh9h2A7B2A+gzhtACAmBaZ1" & _
"Bqh6BWgWgmgrAMvbBdgLALgjAOA0gdsEBfhlgLAhhrA1hcBcBYAzhaggAUgoAjBxgQhpBVBoBJBsgXBzBqI4gLgTgGB1gJgHBHgNApg+gkgLA8BQgjhqAaBqBpBQA1gu" & _
"h5gWg6BNB/hEhvArhkBlhdBWgbBDA9gxgbAChuAjAcA2hSh6ATBWgkglhPhNgKAEhOgug1hxB0AEA3BXBmhRQRAZBrgBApBPg2g8hCgaByhUE8BUhKhwBHvMhKhwhrAP" & _
"A9h4g8A0gYhaBMhqAzhvA/h4hwhlgDA/hrBQh7g1gDBcAug4AogAhSAhgbh6hiAjAQg1BXB+h9B1gjBKBdACBageBxh0hpgJgOATgUATBwBJhPhPhwAeh6ApzQgnA8B2" & _
"glgegVBhgrAgg9AlgChbgZhHAXhvBsAuBeA2ArhiA7BoBFgHgvgZBsBIgvBVAMA1gxgAhtA2hfg3geBkAlB1BYrbhbgKhzBbBUhEpeMhgOhnA+hGg7hvBQhWgwBGhSB3" & _
"A1heB5h3AahUhvhahtBvgGhQAOgRBhhbAtg6gDgBA2gEhjBtTmA2gMgshvOYB8h4B8BVgLAig+g1AGhChtheBdgIh0B3AZgYB5B5gUgCg8BBhghFglBdAHhLg8ccBagh" & _
"gShvB0hwAhBWgxglhlgNgkBSArA612tcg6gZhrBLUohIgZBQZVAWFNh1h/BVhyBNhNgGAKA2BTgkAAhtgQhZBsgdB5BPhvh8hNhfh9h9A3g+h5gNhfhdAdB9B+h0Ahg2" & _
"BmgiBYhGgGhYB2hUh8gIAthHhXA2hEB4BbB0E5haBwAOBvAjgxgvBtgTBFhjg8hHhqA5A/gmA2glhxg2gJhDAWhKhsg5BLgChrhth9n6giAVgwhhhnhOg0hlBuh8h3O1" & _
"g6h5gdg5gPhzgOhZAvBKg/h9EuB+AXhwAEg4TXBIhUgHAtgTA/AOg8AJh8ARhwBrhsAaABA/hYhHBFAEh/gXhgA9pRk8BjA8g7hAgxg2A3hoAIhbAsg1BFAUhxBFhfAo" & _
"hVAAhFAAhZh+AphwAYhbAzg0BsXwBcBugUhbBhh2g7Acgt5fhxAPhBAwg/AEguW/hgAkBBhgBzA0Bdg3faBwBFg3h+hmhYh4hBfSgxg5h1A/gBheADASgcAKg/gJAjCR" & _
"gkgignAiBXAhAwBBCAg==")
	.set_HTMLPicture("p2","gCJKBOI4NBQaBQAhQNJJIIhShQAFUREQIA0RFKQJY2iIJOBILJzhQOYkjYgBSorBwbhQKJ5pIZDKBQNBvOhvOc1OAgJMxEBwORvMxpNhlhR4bSdKZnKhTdIWHr3bz0I" & _
"RLRCAShLN5SCoIEBSISLQAUSImFQhBIQJSIEKhbIVKLBCJFIoEDbIUCIAaORyARlwFgMRQKbAHcghUSOQajRCKZT7cJ7UZray8e7mZr+WrXHznVjzTqzZ4HYAIBiWJAz" & _
"KI1QAMVJCDwRcCDY7EYzhcguICBBQkOAACAIWZkEJzfojAIAfB+Hg8FYiYAHXwAAJ4aYLBAAYBNTbAGAcQ7/B7qISZLgBQCEALAOiRHBLBFjABAPSOISm+ZG9CdTAmKY" & _
"AFAAgADAZYxjEcYACgFsBhOP5zGmABAE6fBMj25ItkoEIKgCUBIgAEAJjKRAiAANAdgAVhnisRQigALAYAACgzCWYgcgAbEFhgJIrjMJAAFgW7tGcCAFlkADTAAGAokQ" & _
"QoUgAAg9wGZARhGPAAEITMYiMeQrh4eIVlcCBzomAA8EyWQeFyEgciKQItgQFo4gOK4rhcDwUGcJILhWCgbDCAQwk0IAXGEPJMgyGRAhoB5wHmZiFQ6CrZEGeZ+jwZwH" & _
"FcZxnBsRxbAcL4WnUX4DH+EQxQOfxymeVY4CAhRwjoPxon8FgXlmDRAB2AxADafxRBKdwCDQLwFlAOp7kWMxZAeIBawAdJtCueY4OW5oilCSBcmybJynIchsCUYghC2M" & _
"JlCuPp/DOYQvmAK5+jYfLmH4e56nAXxxBIQIZC6QIjgIfBwGEZh6CYUoOGeSQEkIMRuHMR4jn4W4Fn+fgOmmERiCSMRciwFQKHGKIJDiRwiE0Rh5hkUoRESIRJBSYoSm" & _
"kf4yHEb4WH2AYfG+GsfjUHwAj2SIWlQLoxgGewlhOCAsDoYBxHuhR5F2N5gmoFAEAGQA0EGcJnjuf53h+fojlAEsIjMJJJDihQvCIEgXCoZRZh+Y7sgAIhQECFRYCCDZ" & _
"6GCDAWGAAwOGCApuGCBZ+DAGxCCEEhiGEIQICEBQyEADg5DAFJWEEIQUEMZpYA6FQwBeaggA6GhgCiNBDEmOAHUIKpcAcHo4AefQwgQTxghQXhAgSAggmQBAJjCEJtEQ" & _
"AIxEULARkcBALkyQp8BCYIkAICRFhIEBkkQCgohEJZIhqJAYikRQqBAKokA6eQejkAQckOLgjF0SIdmQAAZEEPwQwvAjgxEoIEWQUQejUAYLUIYuRUA3A0IQIwogFjQD" & _
"IHQGImhHgWFAJsaAchaAaB6IwGwoRzjQFWGgB42hHg+CGMcGAwB0AYAODMYgbAYAuGMMMIQsQcAsASJMMYyxYgiFYAwVYxgNCwCsKwAYuxEj1DGM8WId3tiBCKMABINg" & _
"CB3CECAMIHgghICwEwLAThsBIFQCADgJAaARG0AkG4CQBiECiMIE4IhJioCWLQEwugIj5GIBgMQMgYiHCwEgFgIxrASEeBMF4EA9iICGMQG4JAJCJCGDIE4uRIACCSLE" & _
"UgVBpASGkEYaQbgpAjHSCwVImwaBIA0CMSYyRtBkDWLIA4ORKAsBACsZAhRyCdHIMMcgMxyAbMOPILYChOhiCAHEUg+ApjiBQFIZQaglAZHKBAcoNBygGDKJgGQQQqij" & _
"E0FIboqBQhUAiDUR4WghCtFCLYKQrwoiHFQBMGgdRNA5GaIMCwSQlilFaKISo0wNBoAuGge4aRXjoDpIAbolQPBOEuNAK40hljpCOOgS46ABj0DuAwBohgKm0EQGcFAG" & _
"RNw0AwGcDIdwMCvEwEwUwGRpiLAyMcKgMAbgxHWJgc4mQHiZDeFVjwtgVB8AqJEZQChKhKEqCYSoGwVAvCoKkVQphVDeFUAsKo8wqjLCoI8VIXgph9FcEYKoMwpjjFSA" & _
"kaglhVhVFUJ0KA6wpgbKWKkHYqBDiqDOKgN4VAfikD8FkfoiQDBZGGEwYYTwhikCiKAWIXxxi8GMCABYYwMizDwCwEIawGirEMHUQINRiAmFiM0bIfA7AqF2JgfoHRdi" & _
"LB6KoVIoQchDBmEoGYVxZhSHmJQMwPwDjjEwHEfAnA6BOASOcFApxLjzD8IobwFB3gpHECkDYpgaBMFyDEMoXA1iqEsJcSwWBVhIFWFEVYRx1i9BsK4dopxOimF6EUXY" & _
"WR9iBAcEEY4SgThcBOEcM4jxnAFE6OcKY2QpjdFOAoU4Fgmg9B0PUVwLhVBrFKBsUIuwiB3F+G4U47hMCeF8F4QAngmBvFON4PIvRzj6A4H0F4/QqD9DaPoU49QjgMCw" & _
"AYWYDASAGG2AwZwGAeDFBqHEN4PAOgvGONseIUQhhdGGEAIYpQwiVDCJccIhBIi5GiDwUY1QjCNCMA8RgaRjBcHGCQcYbRjZ4FGCYAwJgQgmCWE0dQTR3TpCaLkUwKRT" & _
"A7CZowY4zRmDNFEM0awmQaibB6DEa4Mhzib06NcTY3xbhgC0HgLQLBbCoFsLgMoSRZDkC0KYLI7hbC8DcIULQOQsilCwFULQXRZhGFaJ0VoJRrC7FaLsU4ERTi5CcJMJ" & _
"wqxPDWDOMMWA8RbDJFsKkW4GRYDlGxkoVwtg2i2D6GEM4YgLhnFuMUVwwx3CTF6JMPoug+iNH6D0A4DRDjZAcKsDoWgOh+DmLQOQFAdBWB0N4TQzhODuB+H0Yo9BLDpB" & _
"eGcLAzwIDPGwDMcYtgJjLBSMQNJShNjTwVusXIc1KCIEWIkJYghlguEuD4FwmwNjGG6MgXo5AlB0HqHELo4Q9DSHqJ0TYsxNjCHaKgbYrx3A2HcGkdwhxuCfGYDQT4KR" & _
"PBZBmHMaAwxkBDHAFEco0QfgLE+JUGAaxvisD9ZQJ4gQzi1HOCMF4YwXiRCuK0a6QBSh3FUPcMI7wLg+HsD4OQnxxg+HGDwG43gZDeCyF8ZgNxgC3GQLcZYTxhhvE8F8" & _
"Qo3whh/BGzQf4eh/jRAAKcQAJQAhnAGIkQIQU3ACH2PgPQfAQi/EcD8HQ2wyj2FkNkdoQRGCgFyEECoQRHiCFaIIcowRWghDQMgdgkPqj3HOJgZwkRnBpAcIUKAfh0DW" & _
"GgAcMI5gwiLGGH4BgJxCiHEKFcQwPxHBwEQFgDQ0QYhLgag7hohuAhg5hvgiB9AiBLAiBvBNgzgYgngchXgWglAagVAfBVAXA1AeBtAbhdAaBdAfhjAXAzAshmBqgsBO" & _
"gsAkg2AlgOAcgXAVBXAbA3A2BfBvh+B2h5hDhxBOhxAFhxg9gLhMAXhkAug4A8hQhnBhB6BCsLhUgXAJAWAdBLAgAmBEAnAcBKB4AggIAVBUALBGASh5AJg7gShHAFA8" & _
"hhAOhhAzgRAXhogbBohEBsAhguAVKLh5AkAVAmg9BJB2BIheAag8gSBigZhSgWByhchCAThUhIBeAmAGgmBuhNgdBPALBNA7AQA2gZMNBegYhBhJBIhIA4ghBVAQgmhJ" & _
"hbAzh1AzhzAzA7BlhWAyhChZB/Big3BFhbgXgPBKgDhkg1hZhIBWACgsgWgFBbD7h0AqAtAUBrgVADhZAzgykeBfhmhEhlAcq7BPAVhmh2hmBZhlBthIAbhOB3hPh/h2" & _
"gJBhAJBwhJBbBShDAlgrgWgOgsBzBehWA1Ack0A4g8htgFBxgKgCgVhDArADBWAeBcBFKmA2hqgnhVh2grhLhXA/BegTA9Amg1hAgvBghlBBBghagAg1h1qxAFByhCg+" & _
"h1huBrh2gugngsAXgshvhagwh9BDBOgNgfAKhEhFBXAKBtgLhLgKg/hsAUBuA8BygNhDg3hlBfhMhuBKBaBUhVhiBcgyBngzBpAzB0hzBvAWhPAtgHBLBVBLhzBLgHA3" & _
"AGhshtBaAGhvgrBaB2h6h7AihtgXhLhmgUBthdhBhbIGhRhfyFBeAyhThkhnBmgdgfgqJRh6AqB9AqOpBpBuyahrh8A3Boh3ANg9heB7AaB2BqhtgtjLB+gfBkhfBtgq" & _
"gAgqgmhqgzBqgyh9gkh9hZh7gfhXBEhVB0h8BLB9g2guhWgnA2g4h2hjgBhpABh+gDgRgHBbBrhchqBqgOhpAegqApBHhrAVh1gjgHBjgPhfB/BOh3g7gWgGgbAGgqhG" & _
"hOBjBxARg4AiA8hyB0h7gEhvh7gPAGgdBtA7BGA9hWBwgDhpgPg7AOgzsqg1AhBNB5BNAjBNgphNB9gtgxAthdAnhmAfBohrB1BvA9B+AjhtgPgHhOAaAeAsg8glB5gq" & _
"Bkg0htB0hBBphJgzh5BnhGBOhKhOg+g/AXB8huAwBthRBbA9hzgxhnBvg1AHg3h3hdAIA6BwhpAih/hFhzgdheAdhnAuB5BcA6B5BZBthygJgrhcArhNBXgdAvg2h1A6" & _
"B1AeB/BJhpgnhjhdhOBdhNBXBcr0Bch3A9Behag9gzB7h0gNhPAbhnBuh6Beg8h4gLB/hrBqhPAcgehuheh5g9A3h7hil6hvgLBug/A5ATh+hnBlhdhsg7gTh3BWheAn" & _
"heAvh6AgPjhsghhuhDhqgfgth/BuBsB3huA/g1BgA7hQB5wBgjh7gDBChBhnh/BIh6hHgHghgChHhMhHhlhDKTh1hPAcAfAcgchxAfg5B+h0h+BTghhnysATBPALlfh/" & _
"BlhXALgLAXg/B8Bqh1hrhnBohMBohQhLh5BLhJhfg2g+BSh+h1BgB1gMhXhthjBhBjAPBfBkg8AZgYgvB6ArB9h2hgg7huA7gOh3hRhvgHgnhyA+AQA/gUB/g0B8hYh6" & _
"gphoBTh9hJgMhJhJh/gCABhMB5h+AxgZgWhtiIgCAzgggmggiFBYhHA+B9gohJiIgQAxgkApAmiFA9GzkIhBiFB8h/iFBAB0iFA6kYAAB1AwCFAdBMCFALg3hJAvhigj" & _
"CFAFh9AkgiAggqCkBWBMAshHguhjg4hjh/15Bsh3AZB7hnAGBDghg1AiBMgtCQBZASgtycBigkBIALh9gSg3gghfAgAfAkhfAkAIByASggBADqBBAWAgB5AIACBEAxAl" & _
"hbAygWhqM8hDBRAcAZhOB6g3Azh0hWh5AYKaBpAItWg4gBhCg9hABBhth+h1h/quMOgxAzB+BygvjjhfBlAwAIBWA6AUA6gFhUAfBFBzALAKg6AEBGAvAIgzB5AVhnAy" & _
"AngChRhuBag1hnhUh029AQh6hKxyhoh9g8BzgOh4A1grgZguB/hnANh8Bbg/g/ANgigjAIAihHBTBKhlhMgEh1BwAmhUBqAAASAPBWh7hxhfh8BtgjhngFBvgwAYBEBK" & _
"BGAAATi5ABA2gWhshEhSAlBMg6gfBChOh7g3puANoXhJgYB2ArgMAHHyBggGAxATA+BZh4haggFDhBBEACAIh6hzA9gtA0BQhZJWhxh9gbhMhMhBhkBIBjhSBthzBgg7" & _
"BogvgLhbAch2g1BIgFAtBvhYBaA+gMBhAwBVAxhwAQAkBNASBEBnh7AGBABMggAiB/g3goAlAIAIBBEKBxAqAzBNBSA6Apg9h2AKBXgFBIhlguBzgUhqBJBlgogmBXAU" & _
"hCgahPB9A9AgAehlA+rahPh2APh5hkg4gvg+gYBcgbA2hxgjgigRB1gqgpALBWg3BaAQAxASArAZGMgEAiglh5BXgEg9BbAigJAaBWAPhIBmgShKgqgUhqg6AfhFhnB1" & _
"gZAWA6A2AyBPA9BigQBFgjhehUBegRgbgXhahmhWgaBYgHgihcgJAugJheAFhIB5h6AuA9BLhqhXAZwQgLB7h8hMgpgqhrh9BlA4ANAJg6g4hSgYB8WMhYBDBfBbBRBz" & _
"h/gIBGACBOglg6h4h0BrhSh1gvgFhCBbBpA/BPBsglAKhfBMgygRBpAVA8BfAMhBgkA2grhNgbBrANhJAtgVhzBVMVhPAdAxgahxgwA5AdAYBqgoA9gpBnB9gCh3hvBP" & _
"BWg2BGh6BfBbtKBlBAAMh5kBBiB0hYhSg/gdgUAAgcAHgegogUALAvAGgyBb3VhVBehNhxg7A2gehyAcgugmBYgPAYBmg9hujAgxgtAuAig9o/BzhZgwhDAwSBhEg0hL" & _
"BhAeA3BihvB4AQAChahWgVgwhqhlAUAmTbB9yUBmhGgFgUh9BEg5hehXBqhrg+APBvArACAoBqAehnh+BqgKBSg5gxgTAogMBTg9xxAIABhzBygYAqg6AZAUAzBdhShn" & _
"h6AoBCh7BSkZAR0+h9hqhFg9B9U+Agg3heg/g6gmhMBeABAgBEBvAwgfBPh+ByA4A/h7iagIgfgmArBvAegcA4B/g0h9heh1hdBhBkhhhRg3A3A9gVhpF0hXhxhJg9S8" & _
"Bxg1hDg9hvA8OKhbhBBpBxhYAjAihkgWBSBFhogGBiA6AkBfBhhqAKA3ByAHBfANsEq8BThvhchaBcB+hpgVgthx6ZBigf2shHhghhG8AzgZhSBEAoh6BcBuBnBjhFgD" & _
"h7g/heB5h0hOgPhuBWB2gFBXg+h3hWhhhOh2hPhMh/BzA8BKgfA/AjB8hLALhiglg7gRIpBfhbhQBTB4gWBCB8AlBFBBAghiASBUAaB5hOBBhbgmgKAMBEh9AsglBJhv" & _
"AkhGBdAcBfB/hJg3hkhugfg/B4hDhXhyBzBhAyniB4BVADBEgHASTegmgIhEgRAUAHh0Augshjhlh1gyhbA7A1h9gnhvhfB4gvhVhFhFhrhTA1g7B3htgTAzADgJh4hm" & _
"BngJgJA2APA6gyg9BaBohLhvADhxBThA8aBIASgmhSgnAugbA3glAXASgqAwhhgYBaA2hTBthsg5g9A4h4BjAqg5h/gnhXB/h4AahFhVBHgQBzggBTAQhGABBIgeApgK" & _
"AAAcAgg5AABDhABsA7AAABL7g3hwAjhyA/h3h+hBh2gwg4AXh/glgWh5A2g2huBAAKg8hiBDB3APArhagIgFhGB8gQgMBxAlgghEgABIgQA0gMA7h5huBcAFgkhKhehw" & _
"BBAGhYh2hCg9BfA/A+g4hxhTsdg0BlhRAHhSA2AAhZALBSAMhIA0g8h+BOg9goABAcBBAqAABUgAB7APAwhogxB2h9AIArhdhnhXhfhZg7h4BIhuAUBbeWgRC9gegmAN" & _
"B6hEhcBpgDBVeQgnhTBqA5goBYgaARASAQhagogJh6hJBFg+BoBWBkB+hmhYgeA+hqhjh9A5BWA3h/BwBChzgugvhWgzAEAsgBgohshZgMgUABARAACNAoAfABgigBCI" & _
"BCADhKADgkhHgaB70tBqgwPDBPh/Boh2hJhxBWhZdohACytSkQAwp26ISCyh0y3IEzO/jeKhUzzASQUjhs510AkmqTSVF24EeTEwf32+XCvWu+0uamI3ECcgEJE+QUkf" & _
"gY8hiRUilnezxA2R0JEcUGS4Xk2mc+Fmhy230eeViTSsZAULFCc2+NRiSgiCRkPFCqDw7CuAigRGSREgbkkoWQEGkzQWnheCj+eGgH3qTwo5RmwCYQBsAmoAW4Ai4AzS" & _
"aW4LFaBSkc3sDhawA6iA4yCIJB8wnUyDCSEOLyOqWuwCwAyK2x0n1iNgyOAQRCaX0snkIEBItTAqwgchSyAMhsIGlIw0afmqgRKA34KUgrgGMAAIkA/CYVVCAUky1enw" & _
"A9jOwmEAXQADMEA+gmqHlQD3o82S5jS11YhyM3hqujLFwYgjPIURkHEGhTAQLwnH8AiUM8jAAN8CQ0BMLSELcKhrKsTD4DEcy6FgaQ3NImgBCEwA8AM3ANJAfgFFAlwB" & _
"MoABSAAyRHB4ChaK4IxyIASwgM0wDxFMIDeAUKxAGYQCuOo0goLUYT7IMCxkHoiwhGUjgFDkKQ2FgtTdBcBgTAMSAMCQJQSAo2RZCsXCRFEWzpNQFA+LYSjCAsEgAAsB" & _
"iEAEYDAHEHxEAoJA3AAMQAMgAAQEsLxlAAHhgA8TgTHAuAPMQOSYCscCsCERSEJQST6KYizNMkdAqHUPBhFkTgANkUhwCkBx9CEaACJACCcBwZT+MQXA4DUcCuMcpwxK" & _
"QTgzMsfibHQywBKAqDAHIDDIAIxASIghzgDQAxiAUkjlDIsAIEABCnBoCAzIAawQCIWCWCAaQBCMAQ+IUDyqJM2iQM0qihLQ1RKEgtgGKkGClAkczEEcHznDcfSUBkFA" & _
"lPslDFBomT0CoExBFskgSEoCyfHo8zaCsWA1AAcQJIIORTJAzAZBwSQwLsMwVJcCQfEgyxPK95AgO4wBwCAqiQEIixZJ0HydMo5g9G8ZgfMooA+KsUROLQrTaNE0DGBQ" & _
"XB6OoERKGABCoXIMQ1F0CDkDoLx5MYgQfHYVB9HQcjcHsYzcOYlCMAUtBdqgXSaF4TgnB4lTbGcPjqAAPjPA4BA4IIcCMFkmzhNA9x3KoqjwKUzh7KwTDhJkagFHY7j0" & _
"NARzfD0NSPJ43yHLgiwyCY0zvBAQytGU2yWDo6CYPUpifB8rDtG4TTmJssiyOAmCBFQDhQP4GCwFoZg5AACAAIcsxoD83xAAI4AIFQtzYL8IzZNsyyfDAxQHE48A9MgN" & _
"glgghFFKJkKgTAiAyHiJca4owiBgAkCkdYDg6ipE0EIGQiQnCtA6LACI6hUD5GsI0bonQvhtB8LsBQeByBACiIAJgAQ9AEFWJcWAOBBgkf2AYJACgkCEHIrQGLzRnixG" & _
"uD0X4ew4jrBkDEMYsxBjeFeJkD4shYh1EoD4BobAXglC+OINIUQ/juC2BwQoSgmi+G0DgJQhxShYDoCUT4iAwhxH4JwUgtQDg3A+F4Xw1xdh9FwDUPQYQBjeEqIAZQAQ" & _
"ogCGQEEWAjwmgZGANwAIXBBhBDAMcCADQRhNHsHEfYbhrA8EgBcf4ehaisB8O8M4JRkjpBoFMbo8QUC2A6FMGYnxoBoAQPEUgoAnimFOHMF48AYBeAkJECojRJDJDiEY" & _
"GYzRYDTEwK8bonA6DXDOO8Pw/BFg/H2J4bQ3gMC8HwBoQQrxgBcEAHQAIlgLDEA0CAQA2QBhJECOMLIfBUiYAgE8HxywvgeDsLcfoqw/g3G4NgHgcATjzEeE4I49o+jx" & _
"CECUC4Exnh1HgAgUA+hrCHEAJAL4CkaCYGAPAJIAg4BdEMBkPY9AniiA0NYNADxli8HQHcPYiw1h/HmNYPYnx+D5FWO4ToKx1hXC+AcRoxwkBqAAE4fI8haDiFmOgcwG" & _
"hpATDQHERQyR7O8D6PMUAuxKheH+PsWgsh9BPCaL0XAXxWhvCMMkawuA0h7CWNoJQpQVDEBIBASAmx/gtAuL8FAPQejmAECEGIpQXApByBMC4DhSivAuDIFgzAlCWC6G" & _
"odQ5gBhbAcC8WoxQPj+GGH8P48hgw0HcLwfI/QzivHaAwQ4lxXDBFYDwA4sgxiAAKNgJoEB1j7EwO4PwjBujbDuOMewUQ7B7FsPofY/xfPWDkNAYIthYD6FQFkUggx/B" & _
"mB+PYBQWwmAOG4MQQ46AkALGgKAf41AFD/A4JIDwVw7DOEGJoXADhrB3D8KAGGAwxDHCgCwAw6xChNDcPIbwIhvj6GyIQKwDw3jcEyLyLAeBZgYHsN4LgsxbDIEQIQeg" & _
"3g6srCeE4XovQtibAuN8FYxxhijB4B8HwCB8jgFCAkOAdQWC6CoEoGwVAahcH2NkagzQiivCuP4T4gh8xgH+DgGAExAjnGiLYIwGhNDFHCKESgXidBODuF0bgkRTD3BA" & _
"JceYbBaBqA+B4Y4zQ7inBoKkR46xiggAmGpZ4MY3h6G2FccQngKg2DUCUe4ZAvAJC6LsaAcQ3iXBmG4KoJBoj6GEB0GwnhujBEoLMAIRQJAEFgPgLQ9x9BlFWAUBIQho" & _
"gxCsOsYQBhYjhFuKsYwmRDiVCaMMZIIhOhsY4HcQYjh3gzHKLcfQQwYj0F8GoRYfhbClHkJgaITB3AEEyI4KoRBxCsHkK4YokRWDKAEKcaYtgPBfB0M0JoAx8DIDaJcQ" & _
"4vAUDBDSPIRoWwdB8G8HAMQEhqBGf0GIMYNhXC3GaKwW46hHBmA4LYZgTg2AxH8HUMQ8woBnHyIYSg7gkAoGmAkdorBkDsCcCYFINB2jsCIAUHoZBNidBoLIHQyh8jIG" & _
"MC4GoCwNB1DaKwMfLhyA2B6K0d48BKh7CeHwLwBgCAmB0OEIIKhrieCSJMaATwrj8GeHsRI3BBg2AaGYaIhwnBajQJECY6QkBCFwJwVI2A7ghYSOsOYrQmhDEyFUNogx" & _
"9DUC8J4ZY6QIhtGeC8XQcRPAgEQH8W43QeACCwFIYQfgehIA8JoZIpBTDrFaH8Cy0ApC5EuB4Tg1BQBsB6DcY42hgCWGKGgcIkhJh1GmIQSozRqhuD0DwSYvQIjiBOHs" & _
"YYlBVgOAoOMeQ/gjC/C2NAeYEQQ0pCQIkPoPhUC8HGAgY4QQMCjB0O8cwbAFB5GECnoYoh4gOCIL4NY0xOjbD3B4B1BUAmClAyAYDFDLDKDqDrB1BKD/BnAADtCOCxD1" & _
"DLZnCEAAgZAABJBFBOBECuBCBgCCEBA==")
	var_HTMLPicture = .get_HTMLPicture("aka1")
	.HeaderHeight = 24
	.DefaultItemHeight = 48
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.GridLineColor = RGB(240,240,240)
	.SelBackMode = EXGRIDLib.BackModeEnum.exTransparent
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item(0).Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
	.Columns.Item(0).Width = 112
	.Columns.Item(1).Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = 1
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragCopyImage
	.SingleSel = False
	With .Items
		h = .ItemByIndex(1)
		.SelectItem(h) = True
		h = .ItemByIndex(2)
		.SelectItem(h) = True
		h = .ItemByIndex(3)
		.SelectItem(h) = True
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.CellValue(h,1) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."
		.CellSingleLine(h,1) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
		.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 1
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerTop
	End With
	.EndUpdate()
End With
719
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text

Dim h,rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragCopyText
	.SingleSel = False
	With .Items
		h = .ItemByIndex(1)
		.SelectItem(h) = True
		h = .ItemByIndex(3)
		.SelectItem(h) = True
		h = .ItemByIndex(4)
		.SelectItem(h) = True
		h = .ItemByIndex(5)
		.SelectItem(h) = True
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.CellValue(h,0) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."
		.CellSingleLine(h,0) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerTop
	End With
	.EndUpdate()
End With
718
Is it possible to change the indentation during the drag and drop

Dim h,h1,h2,h3
With AxGrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragPositionAny
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = EXGRIDLib.HierarchyLineEnum.exSolidLine
	.HasButtons = EXGRIDLib.ExpandButtonEnum.exWPlus
	.ShowFocusRect = False
	.SelBackMode = EXGRIDLib.BackModeEnum.exTransparent
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Group 1")
		.ItemBold(h) = True
		.ItemDivider(h) = 0
		h1 = .InsertItem(h,Nothing,"Task 1")
		h2 = .InsertItem(h1,Nothing,"Task 2")
		h2 = .InsertItem(h1,Nothing,"Task 3")
		h3 = .InsertItem(h,Nothing,"Task 3")
		.ExpandItem(h) = True
		.ExpandItem(h1) = True
		h = .AddItem("Group 2")
		.ItemBold(h) = True
		.ItemDivider(h) = 0
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.CellValue(h,0) = "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the i" & _
"ndentation."
		.CellSingleLine(h,0) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
	End With
	.EndUpdate()
End With
717
Is it possible to allow moving an item to another, but keeping its indentation

Dim h,h1,h2,h3
With AxGrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragPositionKeepIndent
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = EXGRIDLib.HierarchyLineEnum.exThinLine
	.ShowFocusRect = False
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Group 1")
		.ItemDivider(h) = 0
		.ItemBold(h) = True
		h1 = .InsertItem(h,Nothing,"Task 1")
		h2 = .InsertItem(h,Nothing,"Task 2")
		h3 = .InsertItem(h,Nothing,"Task 3")
		.ExpandItem(h) = True
		h = .AddItem("Group 2")
		.ItemBold(h) = True
		.ItemDivider(h) = 0
	End With
	.EndUpdate()
End With
716
How can I change the row's position to another, by drag and drop. Is it possible

Dim h1,h2,h3
With AxGrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragPosition
	.Columns.Add("Task")
	With .Items
		h1 = .AddItem("Task 1")
		h2 = .AddItem("Task 2")
		h3 = .AddItem("Task 3")
	End With
	.EndUpdate()
End With
715
Is it possible background color displayed when the mouse passes over an item

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Def")
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With
714
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
	End With
	.EndUpdate()
	.Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
End With
713
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Items
		.AddItem("Item 1")
		.AddItem("Task 2")
	End With
	.EndUpdate()
	With CreateObject("Exontrol.Print")
		.PrintExt = AxGrid1.ExecuteTemplate("me")
		.Preview()
	End With
End With
712
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)

With AxGrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("1","K1")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	With .ConditionalFormats.Add("1","K2")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H2
	End With
	.MarkSearchColumn = False
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	End With
	With .Items
		.AddItem()
		.AddItem()
		.AddItem()
	End With
	.EndUpdate()
End With
711
Is it possible to add new records and see them in the control's view using the DataSource

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxGrid1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ButtonClickEvent) Handles AxGrid1.ButtonClick
	With AxGrid1
		With .DataSource
			.AddNew("Task","New-Task")
			.Update()
		End With
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub AxGrid1_Error(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ErrorEvent) Handles AxGrid1.Error
	With AxGrid1
		Debug.Print( e.description )
	End With
End Sub

Dim h,rs
With AxGrid1
	rs = CreateObject("ADODB.Recordset")
	With rs.Fields
		.Append("Task",8)
		.Append("Start",7)
		.Append("End",7)
	End With
	rs.Open()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.DetectAddNew = True
	.DetectDelete = True
	.DataSource = rs
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.ItemDivider(h) = 0
		.ItemHeight(h) = 22
		.CellValue(h,0) = "AddNew"
		.CellHasButton(h,0) = True
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
	End With
End With
710
How can I initiate an OLE Drag and Drop operation in /COM version

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxGrid1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OLEStartDragEvent) Handles AxGrid1.OLEStartDrag
	' Data.SetData("your data to drag")
	With AxGrid1
		e.allowedEffects = 2
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	End With
	.OLEDropMode = EXGRIDLib.exOLEDropModeEnum.exOLEDropManual
	.EndUpdate()
End With
709
How can I find the order of the events
' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub AxGrid1_AfterExpandItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AfterExpandItemEvent) Handles AxGrid1.AfterExpandItem
	With AxGrid1
		Debug.Print( "AfterExpandItem" )
		Debug.Print( e.item )
	End With
End Sub

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxGrid1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AnchorClickEvent) Handles AxGrid1.AnchorClick
	With AxGrid1
		Debug.Print( "AnchorClick" )
		Debug.Print( e.anchorID )
		Debug.Print( e.options )
	End With
End Sub

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxGrid1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_BeforeExpandItemEvent) Handles AxGrid1.BeforeExpandItem
	With AxGrid1
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( e.item )
	End With
End Sub

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxGrid1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ButtonClickEvent) Handles AxGrid1.ButtonClick
	With AxGrid1
		Debug.Print( "ButtonClick" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
		Debug.Print( e.key )
	End With
End Sub

' CellImageClick event - Fired after the user clicks on the image's cell area.
Private Sub AxGrid1_CellImageClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_CellImageClickEvent) Handles AxGrid1.CellImageClick
	With AxGrid1
		Debug.Print( "CellImageClick" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxGrid1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_CellStateChangedEvent) Handles AxGrid1.CellStateChanged
	With AxGrid1
		Debug.Print( "CellStateChanged" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		Debug.Print( "Change" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
		Debug.Print( e.newValue )
	End With
End Sub

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub AxGrid1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.ClickEvent
	With AxGrid1
		Debug.Print( "Click" )
	End With
End Sub

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub AxGrid1_ColumnClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ColumnClickEvent) Handles AxGrid1.ColumnClick
	With AxGrid1
		Debug.Print( "ColumnClick" )
	End With
End Sub

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxGrid1_DblClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_DblClickEvent) Handles AxGrid1.DblClick
	With AxGrid1
		Debug.Print( "DblClick" )
		Debug.Print( e.shift )
		Debug.Print( e.x )
		Debug.Print( e.y )
		.Edit()
	End With
End Sub

' Edit event - Occurs just before editing the focused cell.
Private Sub AxGrid1_EditEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_EditEvent) Handles AxGrid1.EditEvent
	With AxGrid1
		Debug.Print( "Edit" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
	End With
End Sub

' EditClose event - Occurs when the edit operation ends.
Private Sub AxGrid1_EditCloseEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.EditCloseEvent
	With AxGrid1
		Debug.Print( "EditClose" )
	End With
End Sub

' EditOpen event - Occurs when the edit operation starts.
Private Sub AxGrid1_EditOpen(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.EditOpen
	With AxGrid1
		Debug.Print( "EditOpen" )
	End With
End Sub

' FilterChange event - Occurs when filter was changed.
Private Sub AxGrid1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.FilterChange
	With AxGrid1
		Debug.Print( "FilterChange" )
	End With
End Sub

' FilterChanging event - Notifies your application that the filter is about to change.
Private Sub AxGrid1_FilterChanging(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.FilterChanging
	With AxGrid1
		Debug.Print( "FilterChanging" )
	End With
End Sub

' FocusChanged event - Occurs when a new cell is focused.
Private Sub AxGrid1_FocusChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.FocusChanged
	With AxGrid1
		Debug.Print( "FocusChanged" )
	End With
End Sub

' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub AxGrid1_KeyDownEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_KeyDownEvent) Handles AxGrid1.KeyDownEvent
	With AxGrid1
		Debug.Print( "KeyDown" )
		Debug.Print( e.keyCode )
		Debug.Print( e.shift )
	End With
End Sub

' KeyPress event - Occurs when the user presses and releases an ANSI key.
Private Sub AxGrid1_KeyPressEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_KeyPressEvent) Handles AxGrid1.KeyPressEvent
	With AxGrid1
		Debug.Print( "KeyPress" )
		Debug.Print( e.keyAscii )
	End With
End Sub

' KeyUp event - Occurs when the user releases a key while an object has the focus.
Private Sub AxGrid1_KeyUpEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_KeyUpEvent) Handles AxGrid1.KeyUpEvent
	With AxGrid1
		Debug.Print( "KeyUp" )
		Debug.Print( e.keyCode )
		Debug.Print( e.shift )
	End With
End Sub

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub AxGrid1_LayoutChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.LayoutChanged
	With AxGrid1
		Debug.Print( "LayoutChanged" )
	End With
End Sub

' MouseDown event - Occurs when the user presses a mouse button.
Private Sub AxGrid1_MouseDownEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseDownEvent) Handles AxGrid1.MouseDownEvent
	With AxGrid1
		Debug.Print( "MouseDown" )
		Debug.Print( e.button )
		Debug.Print( e.shift )
		Debug.Print( e.x )
		Debug.Print( e.y )
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
End Sub

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub AxGrid1_MouseUpEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseUpEvent) Handles AxGrid1.MouseUpEvent
	With AxGrid1
		Debug.Print( "MouseUp" )
		Debug.Print( e.button )
		Debug.Print( e.shift )
		Debug.Print( e.x )
		Debug.Print( e.y )
	End With
End Sub

' OffsetChanged event - Occurs when the scroll position has been changed.
Private Sub AxGrid1_OffsetChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OffsetChangedEvent) Handles AxGrid1.OffsetChanged
	With AxGrid1
		Debug.Print( "OffsetChanged" )
		Debug.Print( e.horizontal )
		Debug.Print( e.newVal )
	End With
End Sub

' OversizeChanged event - Occurs when the right range of the scroll has been changed.
Private Sub AxGrid1_OversizeChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OversizeChangedEvent) Handles AxGrid1.OversizeChanged
	With AxGrid1
		Debug.Print( "OversizeChanged" )
		Debug.Print( e.horizontal )
		Debug.Print( e.newVal )
	End With
End Sub

' RClick event - Fired when right mouse button is clicked
Private Sub AxGrid1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.RClick
	With AxGrid1
		Debug.Print( "RClick" )
	End With
End Sub

' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub AxGrid1_ScrollButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ScrollButtonClickEvent) Handles AxGrid1.ScrollButtonClick
	With AxGrid1
		Debug.Print( "ScrollButtonClick" )
		Debug.Print( e.scrollBar )
		Debug.Print( e.scrollPart )
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxGrid1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.SelectionChanged
	With AxGrid1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

' Sort event - Fired when the control sorts a column.
Private Sub AxGrid1_Sort(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.Sort
	With AxGrid1
		Debug.Print( "Sort" )
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.Images("gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02h" & _
"z+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z" & _
"6um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvL" & _
"D8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4A" & _
"M2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnD" & _
"tBxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5" & _
"lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt" & _
"73u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeU" & _
"znmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJ" & _
"KSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/A" & _
"cjwAHBsiQex8gPH+MF7pDxxkB")
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesHDash
	.AutoEdit = False
	.ExpandOnDblClick = False
	With .Columns
		With .Add("Column")
			.DisplayFilterButton = True
			.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
			.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Button")
			.AllowSizing = False
			.Width = 18
			.Def(EXGRIDLib.DefColumnEnum.exCellHasButton) = True
		End With
	End With
	With .Items
		h = .AddItem("parent")
		.CellImage(h,0) = 1
		.InsertItem(h,"","child")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
708
Is it possible to select a column instead sorting it

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub AxGrid1_ColumnClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ColumnClickEvent) Handles AxGrid1.ColumnClick
	' Column.Selected = True
	With AxGrid1
		.BeginUpdate()
		.Columns.Item(0).Selected = False
		.Columns.Item(1).Selected = False
		.Items.SelectAll()
		.EndUpdate()
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.ShowFocusRect = False
	.SingleSel = False
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exRectSel
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	With .Columns
		.Add("Column1")
		.Add("Column2")
	End With
	With .Items
		.CellValue(.AddItem("One"),1) = "Three"
		.CellValue(.AddItem("Two"),1) = "Four"
		.SelectAll()
	End With
	.EndUpdate()
End With
707
Is it possible to display empty strings for 0 values

With AxGrid1
	With .Columns.Add("Currency")
		.FormatColumn = "dbl(value) ? currency(dbl(value)) : ``"
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.EditType
			.Numeric = EXGRIDLib.NumericEnum.exFloat
		End With
	End With
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With
706
Is it possible to display empty strings for 0 values

With AxGrid1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "%0 ? currency(%0) : ``"
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With
705
How can I get the list of items as they are displayed

With AxGrid1
	.BeginUpdate()
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	End With
	.Columns.Item(0).SortOrder = EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
	Debug.Print( .GetItems(1) )
End With
704
Is it possible to add new rows, as I type like in Excel

' EditClose event - Occurs when the edit operation ends.
Private Sub AxGrid1_EditCloseEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.EditCloseEvent
	With AxGrid1
		.Items.AddItem("")
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.AutoEdit = True
	.Columns.Add("Default").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	.Items.AddItem("")
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.ScrollBars = EXGRIDLib.ScrollBarsEnum.exDisableBoth
	.EndUpdate()
End With
703
Is posible to reduce the size of the picture to be shown in the column's caption

With AxGrid1
	.BeginUpdate()
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.HeaderHeight = 48
	.Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture"
	.Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture"
	.EndUpdate()
End With
702
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column

With AxGrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ForeColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.Columns.Add("C1")
	With .Columns.Add("C2")
		.HeaderBold = True
		.HTMLCaption = "<fgcolor=FF0000>C2"
	End With
	With .Items
		.CellValue(.AddItem(10),1) = 11
		.CellValue(.AddItem(12),1) = 13
	End With
	.EndUpdate()
End With
701
How can I filter the check-boxes (method 2)

With AxGrid1
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.CheckValueType
			.Option(EXGRIDLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.CustomFilter = "checked||-1|||unchecked||0"
	End With
	With .Items
		.AddItem(True)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
	End With
End With